home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 232_01 / random.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  512 b   |  27 lines
  1. Class Random
  2. | seed |
  3. [
  4.         new
  5.                 seed <- 1
  6. |
  7.     randomize
  8.         seed <- <TimeCounter>
  9. |
  10.         first
  11.                 ^ <RandomFloat (seed <- <Random seed > ) >
  12. |
  13.         next
  14.                 ^ <RandomFloat (seed <- <Random seed > ) >
  15. |
  16.     between: low and: high
  17.         ^ (self next * (high - low)) + low
  18. |
  19.     randInteger: limit
  20.         ^ (self next * limit) truncated + 1
  21. |
  22.     next: n            | newa |
  23.         newa <- Array new: n.
  24.         (1 to: n) do: [:x | newa at: x put: self next].
  25.         ^ newa
  26. ]
  27.